home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
demdat.arc
/
CLIENTS.SBD
< prev
next >
Wrap
Text File
|
1990-06-01
|
2KB
|
43 lines
Title ;TXT ;6 C ;0 ;4 ;
Firstname ;TXT ;18 ;1 ;0 ;
Initials ;TXT ;5 U ;1 ;31 ;
Lastname ;TXT IXD ;18 ;1 ;47 ;
Customer_Ref ;TXT CLC RDQ IXD ;8 ;3 ;0 ;>
LEFT$ ( UCASE$ (Lastname.CLIENTS) + " ",4) + STR$ (Serial.CLIENTS,"0000.")
Class ;TXT VAL ;1 U ;3 ;34 ;>
Class.CLIENTS = "B" OR Class.CLIENTS = "P"
Company ;TXT ;30 ;7 ;5 ;
Trading_Balance;NUM IXD ;-,9999999.00 ;4 ;0 ;
Cash_Receipts ;NUM ;-,9999999.00 ;5 ;2 ;
Net_Due ;NUM CLC RDO ;-,9999999.00 ;5 ;32 ;>
Trading_Balance.CLIENTS - Cash_Receipts.CLIENTS
Telephone ;TXT ;16 ;13 ;45 ;
Street ;TXT ;30 ;8 ;6 ;
Address ;TXT ;30 ;9 ;5 ;
City ;TXT IXD ;18 ;10 ;8 ;
State ;TXT ;18 ;11 ;7 ;
Zip_Code ;TXT ;10 ;11 ;46 ;
Country ;TXT VAL IXD ;24 ;12 ;5 ;>
LOOKUP (Country.CLIENTS,Name.COUNTRY) ELSE REQUEST "Country not found","Select another country",20,,Country.CLIENTS,24,Name.COUNTRY
Start_Date ;DAT ;mmm dd,yy ;13 ;2 ;
Last_Contact ;DAT ;mmm dd,yy ;14 ;0 ;
Result ;TXT ;60 ;15 ;6 ;
Next_Contact ;DAT ;mmm dd,yy ;16 ;0 ;
Subject ;TXT ;60 ;17 ;5 ;
Notes ;EXT ;20 ;18 ;7 ;
Serial ;NUM CON RDO ;999999. ;20 ;6 ;>
SER ("CLIENTS")
Client ;VTX CLC RDO ;30 ;21 ;6 ;>
Title.CLIENTS + " " + Firstname.CLIENTS + " " + Lastname.CLIENTS
Location ;VTX CLC RDO ;30 ;22 ;4 ;>
City.CLIENTS + ", " + State.CLIENTS + " " + Country.CLIENTS
Commission_Rate;NUM ;99.00 ;6 ;0 ;
Photo ;EXT ;30 ;18 ;36 ;
Signature ;EXT ;30 ;19 ;32 ;
Lastname
City
State
Zip_Code
Country